home *** CD-ROM | disk | FTP | other *** search
- 5 rem stepping up or down
- 10 goto 100
- 20 print"press return"
- 22 geta$:ifa$=""then22
- 24 if asc(a$)<>13then22
- 26 return
- 30 for d=1 to 80:next d:poke s,0:return
- 40 for d=1 to 500:next d:poke s,0:return
- 100 print"[147]":print"stepping up or down"
- 110 print"two notes are shown.":print"from the first one,"
- 120 print"do you go up, go down":print"or stay the same":print"to play the second?"
- 130 print"press f1 for up":printtab(7)"f3 for same":printtab(7)"f5 for down"
- 140 l$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
- 150 for i=0to8:readf(i):next
- 160 data 232,231,228,225,223,219,215,209,207
- 170 b(1)=135:b(2)=134:b(3)=133
- 175 poke 36878,15:s=36876
- 180 gosub20
- 190 sc=0:for t=1 to 10
- 200 print"[147][144]":for i=1to5:printl$:next
- 210 n1=int(9*rnd(0)):p1=7796+n1*22
- 220 poke p1,81:poke p1+30720,2
- 230 n2=int(9*rnd(0)):p2=7802+n2*22
- 240 poke p2,81:poke p2+30720,2
- 250 a=sgn(n1-n2)+2:fl=0
- 260 poke s,237:gosub 30
- 270 print"f1 up":print"f3 same":print"f5 down"
- 280 get a$:if a$=""then 280
- 290 if asc(a$)<133 or asc(a$)>135 then 280
- 300 if asc(a$)=b(a) then 350
- 310 fl=1:poke s,159:gosub 30
- 320 poke s,135:gosub 30:goto 280
- 350 poke s,f(n1):gosub 40
- 360 poke s,f(n2):gosub 40
- 370 if fl=0 then sc=sc+1
- 380 next t
- 390 print "score = ";sc;"out of 10"
- 400 print "try again? (y/n)"
- 410 get a$:if a$="y" then 190
- 420 if a$<>"n" then 410
- 430 print"[147]":end
-